object fmDashBoard: TfmDashBoard
  Left = 0
  Top = 0
  Caption = 'Dash Board'
  ClientHeight = 551
  ClientWidth = 897
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Visible = True
  WindowState = wsMaximized
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  DesignSize = (
    897
    551)
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 55
    Height = 13
    Caption = '&Dash Board'
    FocusControl = DBGrid1
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 27
    Width = 881
    Height = 222
    Anchors = [akLeft, akTop, akRight]
    DataSource = dsOverDue
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
  end
  object ADConnection1: TADConnection
    Params.Strings = (
      'Database=emarket_mylong'
      'User_Name=emarket_mylong'
      'Password=mylong1117'
      'Server=e-marketkhas.com'
      'DriverID=MySQL')
    ResourceOptions.AssignedValues = [rvAutoReconnect]
    ResourceOptions.AutoReconnect = True
    Connected = True
    LoginPrompt = False
    Left = 536
    Top = 176
  end
  object ADPhysIBDriverLink1: TADPhysIBDriverLink
    DriverID = 'Firebird'
    VendorHome = 'C:\Program Files\Firebird\Firebird_2_5'
    VendorLib = 'fbclient.dll'
    Left = 596
    Top = 288
  end
  object ADGUIxWaitCursor1: TADGUIxWaitCursor
    Left = 468
    Top = 232
  end
  object ADPhysMySQLDriverLink1: TADPhysMySQLDriverLink
    Left = 596
    Top = 232
  end
  object qryOverDue: TADQuery
    Active = True
    Connection = ADConnection1
    SQL.Strings = (
      'Select'
      '  customers.CUSTOMER_CODE,'
      '  customers.FIRSTNAME,'
      '  customers.LASTNAME,'
      '  customerloansettings.LOAN_AMOUNT,'
      '  customerloansettings.INTEREST,'
      '  customerloansettings.PERIOD,'
      '  customerloansettings.PERIOD_TYPE,'
      '  customerloansettings.DAYS_OF_PERIOD,'
      '  customerloansettings.PAYING_AMOUNT,'
      '  customerloansettings.INSTALLMENTS,'
      '  customerloansettings.PAYMENT_PER_INSTALLMENT,'
      '  customerloansettings.LAST_PERIOD_PAYMENT,'
      '  customerloanpayment.INSTALLMENT_NO,'
      '  customerloanpayment.PAYMENT,'
      '  customerloanpayment.PAID_AMOUNT'
      'From'
      '  customerloansettings Inner Join'
      
        '  customers On customerloansettings.CUSTOMER_CODE = customers.CU' +
        'STOMER_CODE'
      '  Inner Join'
      '  customerloanpayment On customerloanpayment.LOANSETTING_ID ='
      '    customerloansettings.ID'
      'Where'
      '  customerloansettings.ACTIVE = '#39'Y'#39' And'
      '  customerloanpayment.CREATEDATE < AddDate(CurDate(), -1)'
      'Order By'
      '  customerloanpayment.CREATEDATE Desc'
      'Limit 0, 1')
    Left = 712
    Top = 232
  end
  object dsOverDue: TDataSource
    DataSet = qryOverDue
    Left = 712
    Top = 288
  end
end
